home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #6 / Commodore_Disk_User_Vol.3_6_1990_-.d64 / screen enhancer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  3.0 KB  |  75 lines
  1. 0 a=a+1:ifa=1thenload"enhancer code",8,1
  2. 5 rem - screen enhancer 64 demo.(c)2/7/89 j.doig-
  3. 10 sys50624,1:rem switch on and initialise
  4. 15 sys50606,0:rem screen all black
  5. 20 sys50621,2:rem top & bottom borders red
  6. 25 poke53280,0:rem sides black
  7. 30 sys50600,1,13:rem line 1 lt green
  8. 35 sys50609,1,22:rem line 1 lower case
  9. 40 sys50600,0,1:rem top line white
  10. 45 sys50600,2,11:rem line 2 dk grey
  11. 50 sys50600,4,15:rem line 4 lt grey
  12. 55 print"[147][155][223][146]                                      [152][169]"
  13. 60 print"[155][169]                                      [152][223]"
  14. 65 print"[145][145][145][155] [146][212]his is an example of [211]creen [197]nhancer.[152] "
  15. 70 print"[149][197]x. [206]o.1       [193] [205]enu"
  16. 75 sys50609,4,22:rem line 4 lower case
  17. 80 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  18. 85 print"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  19. 90 print"[155]1) [195]ontinue."
  20. 95 print"[155]2) [209]uit."
  21. 100 print"[155]3) [196]o something else."
  22. 105 sys50612,7,9,22:rem lines 7 to 9 lower case
  23. 110 fort=0to2
  24. 115 forg=9to7step-1:sys50603,7,9,0:sys50600,g,11:rem blackout and highlight line
  25. 120 forh=0to80:next:next:next
  26. 125 print"[149][197]x. [206]o.2     [193] [208]icture."
  27. 130 sys50609,11,22:rem line 11 lower case
  28. 135 sys50600,11,15:rem line 11 lt grey
  29. 140 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  30. 145 print"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  31. 150 fort=13to19:reada:sys50600,t,a:next:rem set lines 13 to 19 to data colours
  32. 155 print"[223][169]";
  33. 160 print" [223][169] ";
  34. 165 print"    ";
  35. 170 print"    ";
  36. 175 print"    ";
  37. 180 print" [146][169][146][223] ";
  38. 185 print"[146][169][146][223]"
  39. 190 print"[167] [195][178][195][195][195][195][195][178][195] [165]"
  40. 195 print"[167][208] [221]     [221] [207][165]"
  41. 200 print"[164][164][164][164]"
  42. 205 print"[145][167][150]    [146][165]"
  43. 210 print"[167][150]    [146][165]"
  44. 215 print"[145][163][163][163][163]"
  45. 220 print"[144]  [157][157]  [157][157]  "
  46. 225 print"[164][164][157][157][157][167][165][157][157][157][157][167][165]";
  47. 230 print"[157][157][157][157][167][165]"
  48. 235 print"[149][197]x. [206]o.3   [194]order [211]prites"
  49. 240 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  50. 245 print"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  51. 250 sys50600,22,15:rem line 22 lt grey
  52. 255 sys50609,22,22:rem line 22 lower case
  53. 260 poke53269,7:rem sprites 0 to 2 on
  54. 265 poke53248,100:poke53250,154:poke53252,208:rem set x coordinates (y is 0)
  55. 270 poke53287,7:poke53288,7:poke53289,7:rem sprites yellow
  56. 275 poke53277,7:rem expand sprites
  57. 280 poke48120,128:poke48121,129:poke48122,130:rem set pointers (note addresses)
  58. 285 fort=0to191:reada
  59. 290 poke32768+128*64+t,a*int(rnd(1)*256):next:rem define sprites (in bank 1)
  60. 295 restore:reada,b,c,d,e,f,g
  61. 300 goto285
  62. 305 data15,15,14,14,14,3,3
  63. 310 data1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1
  64. 315 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  65. 320 data1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1
  66. 325 data0
  67. 330 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  68. 335 data0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0
  69. 340 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  70. 345 data0
  71. 350 data0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0
  72. 355 data0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0
  73. 360 data0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,1,0,0,1,0
  74. 365 data0
  75.